MacFormat 1996 Christmas/macformat-045.iso/Demos/Grolier Demos/Circus/DEMO_US.EXE/DEMO_US.DXR/00003.ls

Text File | 1996-10-31 | 594 b | 33 lines

on checkPCConfig
  if the quickTimePresent <> 1 then
    go("PC_QT_ABSENT")
    abort()
  end if
  if the memorysize < 2500000 then
    go("PC_LOW_MEM")
    abort()
  end if
  if the colorDepth <> 8 then
    go("PC_VIDEO_MODE")
    abort()
  end if
end

on SetMemFlag
  global MemMngrFlag
  set MemMngrFlag to 1
  if the memorysize < 8000000 then
    set MemMngrFlag to 0
  end if
end

on FindPCDisk
  openXLib("findcd")
  set CD to findcd(mnew)
  set driveLetter to CD(mFind, "CircusDM")
  set driveLetter to char 1 of driveLetter
  CD(mdispose)
  closeXLib("findcd")
  return driveLetter
end